From 4e2dd58696774c2f18bb08ca81c3e6f93f7ae0b5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 17 Jul 2009 01:27:50 +0000 Subject: [PATCH] (shuffle): Fix the logic of setting up the cycle. --- src/casetab.c | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/casetab.c b/src/casetab.c index 423251df317..95fca03584b 100644 --- a/src/casetab.c +++ b/src/casetab.c @@ -229,7 +229,6 @@ shuffle (table, c, elt) { if (NATNUMP (elt)) { - Lisp_Object tem = Faref (table, elt); int from, to; if (CONSP (c)) @@ -241,11 +240,11 @@ shuffle (table, c, elt) from = to = XINT (c); for (; from <= to; from++) - if (from != XINT (elt)) - { - Faset (table, elt, make_number (from)); - Faset (table, make_number (from), tem); - } + { + Lisp_Object tem = Faref (table, elt); + Faset (table, elt, make_number (from)); + Faset (table, make_number (from), tem); + } } } -- 2.30.2